home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue43 / construc / Listing3.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-02-05  |  670 b   |  33 lines
  1. unit Unit1;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  5.   TDM43_TLB;
  6. type
  7.   TForm1 = class(TForm)
  8.     procedure FormCreate(Sender: TObject);
  9.     procedure FormDestroy(Sender: TObject);
  10.   private
  11.     { Private declarations }
  12.   public
  13.     { Public declarations }
  14.     NewsgroupServer: INewsgroupServer;
  15.   end;
  16. var
  17.   Form1: TForm1;
  18.  
  19. implementation
  20. {$R *.DFM}
  21. procedure TForm1.FormCreate(Sender: TObject);
  22. begin
  23.   NewsgroupServer :=
  24.     TNewsgroupServerCorbaFactory.CreateInstance('NewsgroupServer');
  25. end;
  26.  
  27. procedure TForm1.FormDestroy(Sender: TObject);
  28. begin
  29.   NewsgroupServer := nil
  30. end;
  31.  
  32. end.
  33.